home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / prg / Daytim / DTOAPMM.SM_ / DTOAPMM.SM
Encoding:
INI File  |  1995-08-15  |  1.7 KB  |  131 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _DEFAULT.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [recfile]
  12.     h:\ir2\files\address.dat
  13.     C:\irwin\iraphdr.sam
  14.     2
  15.     1
  16.     3
  17.     12
  18.     1440
  19.     1440
  20. [prn]
  21.     HP LaserJet 4/4M PostScript
  22. [port]
  23.     FILE:
  24. [lang]
  25.     1
  26. [desc]
  27.     
  28.     
  29.     
  30.     
  31.     
  32.     808259925
  33.     19
  34.     748890513
  35.     199
  36.     1
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     1
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53. [lnopts]
  54.     2
  55.     Body Text
  56.     1
  57. [docopts]
  58.     5
  59.     2
  60. [GramStyle]
  61.     
  62. [l1]
  63.     0
  64. [pg]
  65.     1
  66.     16 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  67. [edoc]
  68. <:#288,9360>FUNCTION APMACRO1()
  69.  
  70. <:#288,9360>'Macro to accept an address file from Day-Timer Organizer and do a Mail Merge in AmiPro.
  71.  
  72. <:#288,9360>
  73.  
  74. <:#288,9360>'Reading the WIN.INI file for the paths.
  75.  
  76. <:#288,9360>dpath$ = GetWindowsDirectory$()
  77.  
  78. <:#288,9360>datapath$ = strcat$(dpath$, "\dtaddres.dat")
  79.  
  80. <:#288,9360>hpath$ = GetProfileString$("Day-Timer Organizer","path")
  81.  
  82. headpath$ = strcat$(hpath$,"dtoaphd.sam")
  83.  
  84. <:#288,9360>
  85.  
  86. <:#288,9360>'Starting the Mail Merge functions.
  87.  
  88. <:#288,9360>OpenMergeFile
  89.  
  90. <:#288,9360>result = SetDataFile(datapath$  0 headpath$  0  )
  91.  
  92. <:#576,9360>Message("This macro is complete. You may now print.","Ami Pro - Day-Timer Organizer Win Mail Merge")
  93.  
  94. <:#288,9360>Merge
  95.  
  96. <:#288,9360>
  97.  
  98. <:#288,9360>END FUNCTION
  99.  
  100. >
  101.  
  102. [Embedded]
  103. 00001354
  104. >
  105. [macsum] 1
  106. APMACRO1 0 0 6 0
  107. [macse]
  108. 14 APMACRO1
  109. 0 1288
  110. 13
  111. 8 1
  112. 0 16 "{1}" "\dtaddres.dat"
  113. 13
  114. 8 2
  115. 0 286 "Day-Timer Organizer" "path"
  116. 13
  117. 8 3
  118. 0 16 "{3}" "dtoaphd.sam"
  119. 13
  120. 8 4
  121. 24 785
  122. 2 566 1 "{2}" 0 "{4}" 0
  123. 13
  124. 8 5
  125. 0 3 "This macro is complete. You may now print." "Ami Pro - Day-Timer Organizer Win Mail Merge"
  126. 24 110
  127. 6 0
  128. 15
  129. 9
  130. 00001379
  131.